Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / wp42b.arc / WP42B.DEF < prev next >

Wrap

Text File | 1987-03-30 | 35.9 KB | 960 lines

; ; WordPerfect 4.1 pop-up mouse menus ; ; Set up initial labels for mouse commands begin leftb,rightb,bothb,mousel,mouser,mouseu,moused,24,32 ; -------------------- Left Button --------------------------- leftb: execute others ;Bring up function key menu ; -------------------- Right button ------------------------ bothb: execute printmenu ; --------------------- Both buttons ------------------------ rightb: execute keyaltf4 ;block ; -------------------- Mouse left ----------------------- mousel: execute left ;cursor left ; ------------------- Mouse right ----------------------- mouser: execute right ;cursor right ; --------------------- Mouse up ----------------------- mouseu: execute up ;cursor up moused: execute down ;cursor down ; ---------------- Function Key Selection -------------------- others: popup 1,1,normal ; 12345678911234567892123456789312345678941234567895123456789612345678971234567898 ; 0 0 0 0 0 0 0 0 text " CANCEL " text " F2 Home, F2" text " ╔═════════════════╤═════════════════╤══════════════════╗" text " ║ Shell │ Spell │ ║ Ctrl + Function Key" text " F1║ SUPER/SUBSCRIPT │ <-SEARCH │EXTENDED <-SEARCH ║ SHIFT + Function Key" text " ║ Thesaurus │ Replace │ Extended Replace ║ Alt + Function Key" text " ║_____Cancel______│_____Search->__ │ Extended Search->║ Function Key Alone" text " ║ Screen │ Move ╞══════════════════╝" text " F3║ SWITCH │ ->INDENT<- ║F4" text " ║ Reveal Codes │ Block ║" text " ║______Help_______│____->Indent_____║" text " ║ Text In/Out │ Tab Align ║" text " F5║ DATE │ CENTER ║F6" text " ║ Mark Text │ Flush Right ║ ╔═ Cursor Movement ═══╗" text " ║____List Files___│______Bold_______║ ║ │ ║" text " ║ Footnote │ Print ║ ║ Go To │ Page UP ║" text " F7║ PRINT │ LINE FORMAT ║F8 ║ │ ║" text " ║ Math/Columns │ Page Format ║ ║__________│__________║" text " ║______Exit_______│____Underline____║ ║ │ ║" text " ║ Merge/Sort │ Macro Def. ║ ║ Del EOLn │ Page Dn ║" text " F9║ MERGE E │ RETRIEVE TEXT ║F10 ║ Del EOPg │ ║" text " ║ Merge Codes │ Macro ║ ║ │ ║" text " ║ Merge R │ Save Text ║ ╚══════════╧══════════╝" text " ╚═════════════════╧═════════════════╝" ; 1234567891123456789212345678931234567894123456789512345678961234567897 ; 0 0 0 0 0 0 0 select 1,4,37 select 4,5,17,shellmenu ;Escape to DOS select 5,5,17,subsmenu ;Superscript/Subscript select 6,5,17,keyaltf1 ;Thesaurus select 7,5,17,keyf1 ;Cancel select 8,5,17,scrnmenu ;Screen select 9,5,17,keyshf3 ;Switch select 10,5,17,keyaltf3 ;Reveal codes select 11,5,17,keyf3 ;help select 12,5,17,textmenu ;Text In/Out select 13,5,17,datemenu ;Date select 14,5,17,markmatch ;Mark Text select 15,5,17,keyf5 ;List Files select 16,5,17,footnote ;Footnote select 17,5,17,printmenu ;Print select 18,5,17,mathmatch ;Math / Columns select 19,5,17,keyf7 ;Exit select 20,5,17,merge ;Merge/Sort select 21,5,17,keyshf9 ;Merge E select 22,5,17,mergecmnu ;Merge codes select 23,5,17,keyf9 ;Merge R select 4,23,17,keyctlf2 ;Spell select 5,23,17,keyshf2 ;<-Search select 6,23,17,keyaltf2 ;Replace select 7,23,17,keyf2 ;->Search select 8,23,17,movematch ;Move select 9,23,17,keyshf4 ;->Indent<- select 10,23,17,keyaltf4 ;Block select 11,23,17,keyf4 ;->Indent select 12,23,17,keyctlf6 ;Tab Align select 13,23,17,keyshf6 ;Center select 14,23,17,keyaltf6 ;Flush Right select 15,23,17,keyf6 ;Bold select 16,23,17,keyctlf8 ;Print select 17,23,17,linemenu ;Line select 18,23,17,pagematch ;Page select 19,23,17,keyf8 ;Underline select 20,23,17,keyctlf10 ;Macro Def select 21,23,17,keyshf10 ;Retrieve select 22,23,17,keyaltf10 ;Macro select 23,23,17,keyf10 ;Save select 5,41,18,extsrchup ;Extended <-Search select 6,41,18,extreplace ;Extended Replace select 7,41,18,extsrchdwn ;Extended Search-> select 16,49,8,goto ;GOTO (CTRL HOME) select 20,49,8,deleol ;Delete to end of line select 21,49,8,deleop ;delete t end of page select 16,59,9,pageup ;scroll page up select 20,59,9,pagedn ;scroll page down pend ; ------------- SHELL - execute DOS (CTL F1) --------------- ; shellmenu: popup 25,1,bold ; 12345678911234567892123456789312345678941234567 ; 0 0 0 0 text " Execute DOS Shell: CANCEL Go to DOS" select 1,23,6 select 1,33,9,shell pend shell: execute keyctlf1,key1 ; ; ---------------- MERGE CODES (ALT F9) ---------------------- ; mergecmnu: popup 5,5,normal ; 12345678911234567892123456789312345678941234567 ; 0 0 0 0 text " ╔═══ Merge Code Menu ══════════════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ^C..Keyboard Input ^P..Primary File ║" text " ║ ^D..Current Date ^Q..Stop Merge ║" text " ║ ^E..End of Record ^R..End of File ║" text " ║ ^F..Field Number ^S..Secondary File ║" text " ║ ^G..Start Macro ^T..Text to Printer ║" text " ║ ^N..Next Record ^U..Update Screen ║" text " ║ ^O..Message ^V..Xfer Mrge Codes ║" text " ║ ║" text " ╚══════════════════════════════════════════╝" select 3,6,40 select 4,6,18,mrgctlc select 5,6,18,mrgctld select 6,6,18,mrgctle select 7,6,18,mrgctlf select 8,6,18,mrgctlg select 9,6,18,mrgctln select 10,6,18,mrgctlo select 4,27,19,mrgctlp select 5,27,19,mrgctlq select 6,27,19,mrgctlr select 7,27,19,mrgctls select 8,27,19,mrgctlt select 9,27,19,mrgctlu select 10,27,19,mrgctlv pend mrgctlc: execute keyaltf9,keyc mrgctld: execute keyaltf9,keyd mrgctle: execute keyaltf9,keye mrgctlf: execute keyaltf9,keyf mrgctlg: execute keyaltf9,keyg mrgctln: execute keyaltf9,keyn mrgctlo: execute keyaltf9,keyo mrgctlp: execute keyaltf9,keyp mrgctlq: execute keyaltf9,keyq mrgctlr: execute keyaltf9,keyr mrgctls: execute keyaltf9,keys mrgctlt: execute keyaltf9,keyt mrgctlu: execute keyaltf9,keyu mrgctlv: execute keyaltf9,keyv ; ; ------------- Print Menu (SHIFT F7) ---------------------- ; printmenu: popup 5,5,normal ; 12345678911234567892123456789312345678941234567 ; 0 0 0 0 text " ╔═══ Print Menu ═══════════════════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Full Text Printer Control ║" text " ║ Page Type Thru ║" text " ║ Change Options Preview ║" text " ║ ║" text " ╚══════════════════════════════════════════╝" select 3,6,40 select 5,6,18,prtfulltext select 6,6,18,prtpage select 7,6,18,prtchngopts select 5,27,19,prtcontrol select 6,27,19,prttypethru select 7,27,19,prtpreview pend prtfulltext: execute keyshf7,key1 prtpage: execute keyshf7,key2 prtchngopts: execute keyshf7,key3 prtcontrol: execute keyshf7,key4 prttypethru: execute keyshf7,key5 prtpreview: popup 25,1,bold ; 123456789112345678921234567893123456789 ; 0 0 0 text "Print preview: CANCEL DOCUMENT PAGE" select 1,16,6 select 1,25,8,prtprevdoc select 1,36,4,prtprevpage pend prtprevdoc: execute keyshf7,key6,key1 prtprevpage: execute keyshf7,key6,key2 ; ; --------- Document Conversion & Locking (CTL F5) -------- ; ; 1234567891123456789212345678931234567894123456789512345678961 ; 0 0 0 0 0 0 textmenu: popup 5,5,normal text " ╔═══ Document Conversion and Locking ═════════════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Save current document as DOS text file ║" text " ║ Retrieve a DOS text file (CR/LF becomes [HRt] ║" text " ║ Retrieve a DOS text file (CR/LF in H-Zone becomes [SRt] ║" text " ║ Lock and save current document ║" text " ║ Unlock and retrieve a locked document ║" text " ║ Save in a generic word processor format ║" text " ║ Save in WordPerfect 4.1 format ║" text " ║ Create/Edit Summary ║" text " ║ Create Comment ║" text " ║ Edit Comment ║" text " ║ Display Summary and Comments ║" text " ║ ║" text " ╚═════════════════════════════════════════════════════════╝" select 3,6,55 select 5,6,55,txtsave select 6,6,55,txtreadhrt select 7,6,55,txtreadsrt select 8,6,55,txtlock select 9,6,55,txtunlock select 10,6,55,genericsave select 11,6,55,wp41save select 12,6,55,creatsummary select 13,6,55,creatcomment select 14,6,55,editcomment select 15,6,55,dispsumcmnt pend txtsave: execute keyctlf5,key1 txtreadhrt: execute keyctlf5,key2 txtreadsrt: execute keyctlf5,key3 txtlock: execute keyctlf5,key4 txtunlock: execute keyctlf5,key5 genericsave: execute keyctlf5,key6 wp41save: execute keyctlf5,key7 creatsummary: execute keyctlf5,keya creatcomment: execute keyctlf5,keyb editcomment: execute keyctlf5,keyc dispsumcmnt: execute keyctlf5,keyd ; ; --------- Super/Subscript (SHIFT F1) -------------------- ; ; 12345678911234567892123456789312345678941234567 ; 0 0 0 0 subsmenu: popup 5,5,normal text " ╔═══ Super/Subscript ══════════════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Superscript Advance up ║" text " ║ Subscript Advance down ║" text " ║ Overstrike Advance line ║" text " ║ ║" text " ╚══════════════════════════════════════════╝" select 3,6,40 select 5,6,18,subsuper select 6,6,18,subsubsc select 7,6,18,subover select 5,27,19,subadvup select 6,27,19,subadvdn select 6,27,19,subadvln pend subsuper: execute keyshf1,key1 subsubsc: execute keyshf1,key2 subover: execute keyshf1,key3 subadvup: execute keyshf1,key4 subadvdn: execute keyshf1,key5 subadvln: execute keyshf1,key6 ; ; --------- Line Formatting (SHIFT F6) -------------------- ; ; 12345678911234567892123456789312345678941234567 ; 0 0 0 0 linemenu: popup 5,5,normal text " ╔═══ Line Format Options ══════════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Tabs Hyphenation ║" text " ║ Margins Set align character ║" text " ║ Spacing ║" text " ║ ║" text " ╚══════════════════════════════════════════╝" select 3,6,40 select 5,6,18,linetabs select 6,6,18,linemargins select 7,6,18,linespace select 5,27,19,linehyphn select 6,27,19,linealign pend linetabs: execute keyshf8,key1 linemargins: execute keyshf8,key3 linespace: execute keyshf8,key4 linehyphn: execute keyshf8,key5 linealign: execute keyshf8,key6 ; ; --------- Page Formatting (ALT F6) -------------------- ; ; Check for "Block on" in lower left of screen. If Typeover mode is ; on, the block literal will be shifted to column 11. ; pagematch: match 25,1,,"Block on",keyaltf8,pagematch2 pagematch2: match 25,11,,"Block on",keyaltf8,pagemenu ; ; ; 12345678911234567892123456789312345 ; 0 0 0 0 pagemenu: popup 5,5,normal text " ╔═══ Page Format Options ═════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Page Number Position ║" text " ║ New Page Number ║" text " ║ Center Top to Bottom ║" text " ║ Page Length ║" text " ║ Top Margin ║" text " ║ Headers or Footers ║" text " ║ Page Number Column Position ║" text " ║ Suppress for Current Page ║" text " ║ Conditional End of Page ║" text " ║ Widow/Orphan ║" text " ║ ║" text " ╚═════════════════════════════╝" select 3,6,27 select 5,6,27,pagepos select 6,6,27,pagenum select 7,6,27,pagecenter select 8,6,27,pagelen select 9,6,27,pagetopmrg select 10,6,27,pagehdrs select 11,6,27,pagenumcp select 12,6,27,pagesuppr select 13,6,27,pageeop select 14,6,27,pagewidow pend pagenum: execute keyaltf8,key2 pagecenter: execute keyaltf8,key3 pagetopmrg: execute keyaltf8,key5 pagehdrs: execute keyaltf8,key6 pagenumcp: execute keyaltf8,key7 pagesuppr: execute keyaltf8,key8 pageeop: execute keyaltf8,key9 pagewidow: execute keyaltf8,keya ; ; --------- Option 1 of Page formatting -------------------- ; ; 1234567891123456789212345678931234567 ; 0 0 0 0 pagepos: popup 5,5,normal text " ╔═══ Page Number Positioning ═══╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ No Page Numbers ║" text " ║ Top left of every page ║" text " ║ Top center of every page ║" text " ║ Top right of every page ║" text " ║ Top alternating left & right ║" text " ║ Bot. left of every page ║" text " ║ Bot. center of every page ║" text " ║ Bot. right of every page ║" text " ║ Bot. alternating left & right ║" text " ║ ║" text " ╚═══════════════════════════════╝" select 3,6,29 select 5,6,29,pgnumnone select 6,6,29,pgnumtl select 7,6,29,pgnumtc select 8,6,29,pgnumtr select 9,6,29,pgnumtlr select 10,6,29,pgnumbl select 11,6,29,pgnumbc select 12,6,29,pgnumbr select 13,6,29,pgnumblr pend pgnumnone: execute keyaltf8,key1,key0,key0 pgnumtl: execute keyaltf8,key1,key1,key0 pgnumtc: execute keyaltf8,key1,key2,key0 pgnumtr: execute keyaltf8,key1,key3,key0 pgnumtlr: execute keyaltf8,key1,key4,key0 pgnumbl: execute keyaltf8,key1,key5,key0 pgnumbc: execute keyaltf8,key1,key6,key0 pgnumbr: execute keyaltf8,key1,key7,key0 pgnumblr: execute keyaltf8,key1,key8,key0 ; ; --------- Option 4 of Page formatting -------------------- ; ; 123456789112345678921234567893123456 ; 0 0 0 0 pagelen: popup 5,5,normal text " ╔═══ Page Length ═══════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Letter: 66 lines @ 54 / page ║" text " ║ Legal: 84 lines @ 72 / page ║" text " ║ Other ║" text " ║ (Other drops out of mouse ║" text " ║ data entry mode) ║" text " ╚═══════════════════════════════╝" select 3,6,29 select 5,6,29,pglenlet select 6,6,29,pglenleg select 7,6,29,pglenoth pend pglenlet: execute keyaltf8,key4,key1,key0 pglenleg: execute keyaltf8,key4,key2,key0 pglenoth: execute keyaltf8,key4,key3 ; ; --------- Move Menus (CTL F4) ------------- ; ; Check for "Block on" in lower left of screen. If Typeover mode is ; on, the block literal will be shifted to column 11. ; movematch: match 25,1,,"Block on",moveblk,movematch2 movematch2: match 25,11,,"Block on",moveblk,movetxt ; ; --------- Move Blocks (when "Block on" is in lower left ----- ; moveblk: popup 5,5,normal ; 12345678911234567892123456789312345678941234567 ; 0 0 0 0 text " ╔═══ Move Block Options ═══════════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Cut Block Cut/Copy Column ║" text " ║ Copy Block Cut/Copy Rectangle ║" text " ║ Append ║" text " ║ ║" text " ╚══════════════════════════════════════════╝" select 3,6,40 select 5,6,18,blkcut select 6,6,18,blkcopy select 7,6,18,blkapnd select 5,27,19,blkcccol select 6,27,19,blkccrect pend blkcut: execute keyctlf4,key1 blkcopy: execute keyctlf4,key2 blkapnd: execute keyctlf4,key3 blkcccol: popup 25,1,bold ; 12345678911234567892123456789312345678941234567895 ; 0 0 0 0 0 text "Block cut/copy column: CANCEL CUT COPY DELETE" select 1,24,6 select 1,33,3,blkcc1 select 1,39,4,blkcc2 select 1,45,6,blkcc3 pend blkcc1: execute keyctlf4,key4,key1 blkcc2: execute keyctlf4,key4,key2 blkcc3: execute keyctlf4,key4,key3 blkccrect: popup 25,1,bold ; 12345678911234567892123456789312345678941234567895123 ; 0 0 0 0 0 text "Block cut/copy rectangle: CANCEL CUT COPY DELETE" select 1,27,6 select 1,36,3,blkcc4 select 1,42,4,blkcc5 select 1,48,6,blkcc6 pend blkcc4: execute keyctlf4,key5,key1 blkcc5: execute keyctlf4,key5,key2 blkcc6: execute keyctlf4,key5,key3 ; ; --------- Move Text (when "Block on" is not in lower left ----- ; movetxt: popup 5,5,normal ; 12345678911234567892123456789312345678 ; 0 0 0 text " ╔═══ Move Options ═══════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ MOVE RETRIEVE ║" text " ║ ---------- ----------- ║" text " ║ Sentence Column ║" text " ║ Paragraph Text ║" text " ║ Page Rectangle ║" text " ║ ║" text " ╚════════════════════════════════╝" select 3,6,29 select 7,6,12,mvtxtsent select 8,6,12,mvtxtpara select 9,6,12,mvtxtpage select 7,23,12,mvtxtrcol select 8,23,12,mvtxtrtext select 9,23,12,mvtxtrrect pend mvtxtrcol: execute keyctlf4,key4 mvtxtrtext: execute keyctlf4,key5 mvtxtrrect: execute keyctlf4,key6 ; mvtxtsent: popup 25,1,bold ; 12345678911234567892123456789312345678941234567 ; 0 0 0 0 text "Move text sentence: CANCEL CUT COPY DELETE" select 1,21,6 select 1,30,3,movsent1 select 1,36,4,movsent2 select 1,42,6,movsent3 pend movsent1: execute keyctlf4,key1,key1 movsent2: execute keyctlf4,key1,key2 movsent3: execute keyctlf4,key1,key3 ; mvtxtpara: popup 25,1,bold ; 123456789112345678921234567893123456789412345678 ; 0 0 0 0 text "Move text paragraph: CANCEL CUT COPY DELETE" select 1,22,6 select 1,31,3,movpara1 select 1,37,4,movpara2 select 1,43,6,movpara3 pend movpara1: execute keyctlf4,key2,key1 movpara2: execute keyctlf4,key2,key2 movpara3: execute keyctlf4,key2,key3 ; mvtxtpage: popup 25,1,bold ; 1234567891123456789212345678931234567894123 ; 0 0 0 0 text "Move text page: CANCEL CUT COPY DELETE" select 1,17,6 select 1,26,3,movpage1 select 1,32,4,movpage2 select 1,38,6,movpage3 pend movpage1: execute keyctlf4,key3,key1 movpage2: execute keyctlf4,key3,key2 movpage3: execute keyctlf4,key3,key3 ; ; ------------- Screen Menu (CTL F2) --------------------- ; scrnmenu: popup 5,5,normal ; 12345678911234567892123456789312345678941234567 ; 0 0 0 0 text " ╔═══ Screen Menu ═════════════════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Rewrite CTL/ALT Keys ║" text " ║ Window Colors ║" text " ║ Line Draw Auto Rewrite ║" text " ║ ║" text " ╚══════════════════════════════════════════╝" select 3,6,40 select 5,6,18,scrnrewrite select 6,6,18,scrnwind select 7,6,18,scrnline select 5,27,19,scrnctlalt select 6,27,19,scrncolors select 7,27,19,scrnautorw pend scrnrewrite: execute keyctlf3,key0 scrnwind: execute keyctlf3,key1 scrnline: execute keyctlf3,key2 scrnctlalt: execute keyctlf3,key3 scrncolors: execute keyctlf3,key4 scrnautorw: execute keyctlf3,key5 ; ; ------------- Footnotes (CTL F7) ----------------------- ; footnote: popup 5,5,normal ; 12345678911234567892123456789312345678941234567 ; 0 0 0 0 text " ╔═══ Footnote ═════════════════════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Create Options ║" text " ║ Edit Create Endnote ║" text " ║ New number Edit Endnote ║" text " ║ ║" text " ╚══════════════════════════════════════════╝" select 3,6,40 select 5,6,18,footcreate select 6,6,18,footedit select 7,6,18,footnew select 5,27,19,footoption select 6,27,19,footend select 7,27,19,footendedit pend footcreate: execute keyctlf7,key1 footedit: execute keyctlf7,key2 footnew: execute keyctlf7,key3 footoption: execute keyctlf7,key4 footend: execute keyctlf7,key5 footendedit: execute keyctlf7,key6 ; ; ------------- Merge Menu (CTL F9) ---------------------- ; merge: popup 5,5,normal ; 1234567891123456789212345678 ; 0 0 text " ╔═ Merge/Sort Options ═╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Merge ║" text " ║ Sort ║" text " ║ Sorting Sequences ║" text " ║ ║" text " ╚══════════════════════╝" select 3,6,18 select 5,6,18,mrgmerge select 6,6,18,mrgsort select 7,6,18,mrgseq pend mrgmerge: execute keyctlf9,key1 mrgsort: execute keyctlf9,key2 mrgseq: execute keyctlf9,key3 ; ; ------------- Merge Menu (CTL F9) ---------------------- ; datemenu: popup 25,1,normal ; 1234567891123456789212345678931234567894123456789512345678961234567897123456 ; 0 0 0 0 0 0 text "Dates: CANCEL Ins. Date as Text Ins. Date Function Chg. Date Format" select 1,8,6 select 1,18,17,dattext select 1,39,18,datfunc select 1,61,16,datform pend dattext: execute keyshf5,key1 datform: execute keyshf5,key2 datfunc: execute keyshf5,key3 ; ; ------------- Math/Columns (ALT F7) -------------------- ; ; Check for "Math" in lower left of screen. If Typeover mode is on, ; the "Math" literal will be shifted to column 11. ; mathmatch: match 25,1,,"Math",mathonmenu,mathmatch1 mathmatch1: match 25,11,,"Math",mathonmenu,mathoffmenu ; ; ------------- Math/Columns (ALT F7) (MATH OFF)---------- ; mathoffmenu: popup 5,5,normal ; 1234567891123456789212345678 ; 0 0 text " ╔═ Math/Columns ════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Math On ║" text " ║ Math Definition ║" text " ║ Column On/Off ║" text " ║ Column Definition ║" text " ║ Column Display ║" text " ║ ║" text " ╚═══════════════════╝" select 3,6,17 select 5,6,17,mathon select 6,6,17,mathdef select 7,6,17,colmon1 select 8,6,17,colmdef1 select 9,6,17,colmdsp1 pend mathon: execute keyaltf7,key1 mathdef: execute keyaltf7,key2 colmon1: execute keyaltf7,key3 colmdef1: execute keyaltf7,key4 colmdsp1: execute keyaltf7,key5 ; ; ------------- Math/Columns (ALT F7) (MATH ON)----------- ; mathonmenu: popup 5,5,normal ; 1234567891123456789212345678 ; 0 0 text " ╔═ Math/Columns ════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Math Off ║" text " ║ Calculate ║" text " ║ Column On/Off ║" text " ║ Column Definition ║" text " ║ Column Display ║" text " ║ ║" text " ╚═══════════════════╝" select 3,6,17 select 5,6,17,mathoff select 6,6,17,mathcalc select 7,6,17,colmon2 select 8,6,17,colmdef2 select 9,6,17,colmdsp2 pend mathoff: execute keyaltf7,key1 mathcalc: execute keyaltf7,key2 colmon2: execute keyaltf7,key3 colmdef2: execute keyaltf7,key4 colmdsp2: execute keyaltf7,key5 ; ; ; ------------- Mark Text (ALT F5) ----------------------- ; ; ; Check for "Block on" in lower left of screen. If Typeover mode is ; on, the block literal will be shifted to column 11. ; markmatch: match 25,1,,"Block on",markblk,markmatch2 markmatch2: match 25,11,,"Block on",markblk,markmenu ; markblk: popup 5,5,normal ; 12345678911234567892123456789312345678941234567 ; 0 0 0 0 text " ╔═══ Mark Block for ════════════════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Table of contents Strikeout ║" text " ║ List Index ║" text " ║ Redline Table of Authorities ║" text " ║ ║" text " ╚═══════════════════════════════════════════╝" select 3,6,41 select 5,6,18,markblktoc select 6,6,18,markblklist select 7,6,18,markblkredline select 5,27,20,markblkstrikeout select 6,27,20,markblkindex select 7,27,20,markblktoa pend markblktoc: execute keyaltf5,key1 markblklist: execute keyaltf5,key2 markblkredline: execute keyaltf5,key3 markblkstrikeout: execute keyaltf5,key4 markblkindex: execute keyaltf5,key5 markblktoa: execute keyaltf5,key6 ; markmenu: popup 5,5,normal ; 12345678911234567892123456789312345678941234567 ; 0 0 0 0 text " ╔═══ Mark Text Options ════════════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Outline Short form ║" text " ║ Paragraph number Index ║" text " ║ Redline Other Options ║" text " ║ ║" text " ╚══════════════════════════════════════════╝" select 3,6,40 select 5,6,18,markoutline select 6,6,18,markpara select 7,6,18,markredline select 5,27,19,markshortfrm select 6,27,19,markindex select 7,27,19,markothomenu pend markoutline: execute keyaltf5,key1 markpara: execute keyaltf5,key2 markredline: execute keyaltf5,key3 markshortfrm: execute keyaltf5,key4 markindex: execute keyaltf5,key5 ; ; --------- Mark Text Other Options (ALT F5, 5) ----------- ; ; 1234567891123456789212345678931234567894123456789512345678961 ; 0 0 0 0 0 0 markothomenu: popup 5,5,normal text " ╔═══ Mark Text Other Options ═════════════════════════════╗" text " ║ ║" text " ║ CANCEL ║" text " ║ ║" text " ║ Define paragraph/outline numbering ║" text " ║ Define table of contents ║" text " ║ Define list ║" text " ║ Define table of authorities ║" text " ║ Define index ║" text " ║ Remove all redline markings and strikeout text ║" text " ║ Edit table of authorities full form ║" text " ║ Generate tables and index ║" text " ║ ║" text " ╚═════════════════════════════════════════════════════════╝" select 3,6,55 select 5,6,55,markothdnumb select 6,6,55,markothdtoc select 7,6,55,markothdlist select 8,6,55,markothdtoa select 9,6,55,markothdndx select 10,6,55,markothrmov select 11,6,55,markothedit select 12,6,55,markothgen pend markothdnumb: execute keyaltf5,key6,key1 markothdtoc: execute keyaltf5,key6,key2 markothdlist: execute keyaltf5,key6,key3 markothdtoa: execute keyaltf5,key6,key4 markothdndx: execute keyaltf5,key6,key5 markothrmov: execute keyaltf5,key6,key6 markothedit: execute keyaltf5,key6,key7 markothgen: execute keyaltf5,key6,keya ; ; ------------- Extended searches and replace ------------ ; extsrchup: execute keyhome,keyshf2 ;Extended <-Search extreplace: execute keyhome,keyaltf2 ;Extended Replace extsrchdwn: execute keyhome,keyf2 ;Extended Search-> ; ; ------------- Cursor movement keys -------------------- ; goto: execute keyctlhome deleop: execute keyctlpgdn ;delete to end of page pageup: execute keypgup ;scroll page up pagedn: execute keypgdn ;scroll page down deleol: popup 25,1,bold ; 123456789112345678921234567893123456789412345678951234 ; 0 0 0 0 0 text "Verify delete of text to end of line: CANCEL DELETE" select 1,39,6 select 1,48,6,keyctlend pend ; ; ; ------------- Keystroke definintions ------------------- ; key0: type "0" key1: type "1" key2: type "2" key3: type "3" key4: type "4" key5: type "5" key6: type "6" key7: type "7" key8: type "8" key9: type "9" keya: type "A" keyb: type "B" keyc: type "C" keyd: type "D" keye: type "E" keyf: type "F" keyg: type "G" keyh: type "H" keyi: type "I" keyj: type "J" keyk: type "K" keyl: type "L" keym: type "M" keyn: type "N" keyo: type "O" keyp: type "P" keyq: type "Q" keyr: type "R" keys: type "S" keyt: type "T" keyu: type "U" keyv: type "V" keyw: type "W" keyx: type "X" keyy: type "Y" keyz: type "Z" keyctla: type 1 keyctlb: type 2 keyctlc: type 3 keyctld: type 4 keyctle: type 5 keyctlf: type 6 keyctlg: type 7 keyctlh: type 8 keyctli: type 9 keyctlj: type 10 keyctlk: type 11 keyctll: type 12 keyctlm: type 13 keyctln: type 14 keyctlo: type 15 keyctlp: type 16 keyctlq: type 17 keyctlr: type 18 keyctls: type 19 keyctlt: type 20 keyctlu: type 21 keyctlv: type 22 keyctlw: type 23 keyctlx: type 24 keyctly: type 25 keyctlz: type 26 keyhome: type 0,71 keyctlhome: type 0,119 keyctlend: type 0,117 keyctlpgdn: type 0,118 nothing: nothing left: type 0,75 right: type 0,77 up: type 0,72 down: type 0,80 keypgup: type 0,73 keypgdn: type 0,81 keyf1: type 0,59 keyf2: type 0,60 keyf3: type 0,61 keyf4: type 0,62 keyf5: type 0,63 keyf6: type 0,64 keyf7: type 0,65 keyf8: type 0,66 keyf9: type 0,67 keyf10: type 0,68 keyaltf1: type 0,104 keyaltf2: type 0,105 keyaltf3: type 0,106 keyaltf4: type 0,107 keyaltf5: type 0,108 keyaltf6: type 0,109 keyaltf7: type 0,110 keyaltf8: type 0,111 keyaltf9: type 0,112 keyaltf10: type 0,113 keyshf1: type 0,84 keyshf2: type 0,85 keyshf3: type 0,86 keyshf4: type 0,87 keyshf5: type 0,88 keyshf6: type 0,89 keyshf7: type 0,90 keyshf8: type 0,91 keyshf9: type 0,92 keyshf10: type 0,93 keyctlf1: type 0,94 keyctlf2: type 0,95 keyctlf3: type 0,96 keyctlf4: type 0,97 keyctlf5: type 0,98 keyctlf6: type 0,99 keyctlf7: type 0,100 keyctlf8: type 0,101 keyctlf9: type 0,102 keyctlf10: type 0,103 return: type enter ; The end